home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CU Amiga Super CD-ROM 24
/
CU Amiga Magazine's Super CD-ROM 24 (1998)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1998-07].iso
/
CUCD
/
Games
/
TaskForce
/
Install_TaskForce
< prev
next >
Wrap
Text File
|
1998-04-04
|
2KB
|
112 lines
; $VER: Install_TaskForce 1.04 (04.04.98)
(complete 0)
; version check
(if (< (/ (getversion) 65536) 37)
(abort "You must be using Kickstart 2.04 or higher to run TaskForce.")
)
(welcome)
(set @default-dest
(askdir
(prompt "Please choose a directory where to install the game. A directory named \"TaskForce\" will be created.")
(help @askdir-help)
(default @default-dest)
)
)
(complete 10)
(set #missions 3) ; default missions to be installed
(if (= @user-level 2)
(set #missions
(askoptions
(prompt "Select the missions you wish to install.")
(help (cat
"The mission files are needed to play TaskForce. "
"Each mission introduces new characters, defines "
"other objectives, and usually also offers a "
"different setting. It is recommended to copy all files. "
"However, you may opt not to install all available "
"missions because of low harddisk space, for example "
"(rather improbable, isn't it?).\n"
"The number in brackets indicates whether it is a "
"scenario for one or two human players."
))
(choices "Hide & Seek (1)" "Urban Combat (2)")
(default #missions)
)
)
)
(complete 20)
(set #instdir (tackon @default-dest "TaskForce") )
(makedir #instdir (infos))
(makedir (tackon #instdir "Games"))
(makedir (tackon #instdir "Missions"))
(makedir (tackon #instdir "Missions/OnePlayer"))
(makedir (tackon #instdir "Missions/TwoPlayers"))
(makedir (tackon #instdir "Briefings"))
(complete 30)
(copyfiles
(prompt "Copying game files...")
(help @copyfiles-help)
(source "")
(dest #instdir)
(choices "TaskForce" "Editor" "Data" "Docs" "Briefings.info")
(infos)
)
(complete 65)
(working "\n\n\nTaskForce is now installing the mission files...")
(set n 0)
(while
(set #missionfiles
(select n
"OnePlayer/Hide & Seek"
"TwoPlayers/Urban Combat"
""
)
)
(
(if (IN #missions n)
(
(copyfiles
(source "Missions/")
(dest (pathonly (tackon (tackon #instdir "Missions/") #missionfiles) ) )
(choices (cat #missionfiles ".mission"))
(nogauge)
)
(copyfiles
(source "Briefings/")
(dest (tackon #instdir "Briefings"))
(choices (fileonly #missionfiles))
(infos)
(nogauge)
)
)
)
(set n (+ n 1))
(complete (+ 65 (* n 10)))
))
(complete 90)
(copylib
(prompt "Installing reqtools.library")
(help @copylib-help)
(source "Libs/reqtools.library")
(dest "LIBS:")
(confirm)
)
(complete 100)